중국산 리습 2가지 (학습용)
페이지 정보
작성자 zwcad사용자 작성일 23-11-25 18:21 조회 1,740 댓글 1본문
캐드 프로그램 종류, 버전:
XICAD에서 더 완벽하게 지원하는 기능입니다
다만 코드가 공개되어 있어 리습 학습하시는 분들이 있으면 도움이 될 것 같아 업로드 합니다
메모장으로 열면 중국어가 깨져 나와서 vscode 등 코드 에디터로 여는걸 추천드립니다
자주 쓰는 문장 꺼내 쓰기, QT 과 유사한 리습-> Y550
*.txt 파일을 불러와서 문장을 바로 입력하는 리습입니다
블럭 창고, Q1 과 유사한 리습 -> Y340
자주 사용하는 블럭을 꺼내오는 리습입니다
기본 경로는 D:\ACADuser이며
해당 경로에 폴더와, 그 폴더 내에 도면 하나가 있어야 실행됩니다
XICAD에서 더 완벽하게 지원하는 기능입니다
다만 코드가 공개되어 있어 리습 학습하시는 분들이 있으면 도움이 될 것 같아 업로드 합니다
메모장으로 열면 중국어가 깨져 나와서 vscode 등 코드 에디터로 여는걸 추천드립니다
자주 쓰는 문장 꺼내 쓰기, QT 과 유사한 리습-> Y550
*.txt 파일을 불러와서 문장을 바로 입력하는 리습입니다
블럭 창고, Q1 과 유사한 리습 -> Y340
자주 사용하는 블럭을 꺼내오는 리습입니다
기본 경로는 D:\ACADuser이며
해당 경로에 폴더와, 그 폴더 내에 도면 하나가 있어야 실행됩니다
첨부파일
- Y340.LSP (52.2K) 16회 다운로드 | DATE : 2023-11-25 18:21:14
- Y550.LSP (31.8K) 12회 다운로드 | DATE : 2023-11-25 18:21:14
zwcad사용자님의 댓글
zwcad사용자 작성일(defun :Y340-65_old: (ch65)
(cond ((= ch65 1) (setq fname (- fname 1)))
((= ch65 2) (setq fname (+ fname 1))) )
(setq y340_stch (+ (fix fname) 1))
(:Y340-62:) )
(defun :Y340-65: (ch65)
(cond ((= ch65 1) (setq fname (- fname 1)))
((= ch65 2) (setq fname (+ fname 1))) )
;; 예외처리: fname이 d_list-2를 초과하는 경우
(setq fname (min (max fname 0) (1- (length d_data-2))) )
(setq y340_stch (+ (fix fname) 1))
(:Y340-62:))
(defun :Y340-26_old: (ch26 / num1a)
(setq num1 y340)
(cond ((= ch26 1) (setq num1a (- (atoi num1) 1)))
((= ch26 2) (setq num1a (+ (atoi num1) 1))) )
(setq num1 (itoa num1a))
(:Y340-4: num1 d_list-1) )
(defun :Y340-26: (ch26 / num1a)
(setq num1 y340)
(cond ((= ch26 1) (setq num1a (- (atoi num1) 1)))
((= ch26 2) (setq num1a (+ (atoi num1) 1))) )
;; 예외처리: num1a가 d_list-1을 초과하는 경우
(setq num1a (min (max num1a 0) (1- (length d_list-1))))
(setq num1 (itoa num1a))
(:Y340-4: num1 d_list-1))
파일 및 폴더 개수가 각 1개일때 다음 폴더 또는 다음 파일 버튼을 누르면
캐드가 멈춰버리는 오류가 있어 예외처리를 추가해보았습니다